Homework 7

P2 12.7

corr <-
  matrix(
    c(
      1,
      0.63,
      .51,
      .12,
      .16,
      .63,
      1,
      .57,
      .32,
      .21,
      .51,
      .57,
      1,
      .18,
      .15,
      .12,
      .32,
      .18,
      1,
      .68,
      .16,
      .21,
      .15,
      .68,
      1
    ),
    nrow = 5
  )
corr

##      [,1] [,2] [,3] [,4] [,5]
## [1,] 1.00 0.63 0.51 0.12 0.16
## [2,] 0.63 1.00 0.57 0.32 0.21
## [3,] 0.51 0.57 1.00 0.18 0.15
## [4,] 0.12 0.32 0.18 1.00 0.68
## [5,] 0.16 0.21 0.15 0.68 1.00

## -- Attaching packages --------------------------------------- tidyverse 1.3.1 --

## v ggplot2 3.3.5     v purrr   0.3.4
## v tibble  3.1.6     v dplyr   1.0.8
## v tidyr   1.2.0     v stringr 1.4.0
## v readr   1.4.0     v forcats 0.5.1

## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()

## 
## Attaching package: 'plotly'

## The following object is masked from 'package:ggplot2':
## 
##     last_plot

## The following object is masked from 'package:stats':
## 
##     filter

## The following object is masked from 'package:graphics':
## 
##     layout

dist <- as.dist(1 - corr)

#Single
tree <- hclust(dist, method = "average")
ggplotly(ggdendrogram(tree))

#Complete
tree <- hclust(dist, method = "complete")
ggplotly(ggdendrogram(tree))